SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TTTIPO_OPER_I01]  
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS              --*/  
/*---Sistema              : Tesoreria         --*/  
/*---M¸dulo               : Adminstaci©n               --*/  
/*---Programa             : Copia Tipo Operaci©n       --*/  
/*---Nombre SP            : SP_TTTIPO_OPER_I01         --*/  
/*---Desarrollado por     : Daniel Chiang        --*/  
/*---Fecha Creaci¸n       : 09/11/1999                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versi¸n              : 8.0                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
/*------------------------------------------------------ */  
/* Drop Proc SP_TTTIPO_OPER_I01      */  
/* Grant All On SP_TTTIPO_OPER_I01 To Public    */  
/* SP_TTTIPO_OPER_I01 '01', 'OFISIS','001', '010' , 'OP10 COPIA OP' */  
/*-------------------------------------------------------*/  
 @ISCO_EMPR TD_VC_002,   
 @ISCO_USUA TD_VC_008,  
 @ISCO_TIOP_0001 TD_VC_003,   
 @ISCO_TIOP_0002 TD_VC_003,  
 @ISDE_TIPO_OPE2 TD_VC_050  
  
 as  
  
 BEGIN TRAN SP_TTTIPO_OPER_I01  
  
 INSERT TTTIPO_OPER (  
  CO_EMPR, CO_TIPO_OPER, CO_GRUP_OPER, DE_TIPO_OPER, TI_MOVI,   
  ST_CAJA, ST_BANC, ST_CTAC, ST_CTAP, ST_DETA_DOCU,   
  ST_REPO_CAJA, ST_ENRE_OTRO, ST_TRAN_BANC, ST_TRAN_CAJA,   
  ST_AUXI_0001, ST_AUXI_0002, ST_AUXI_0003, ST_AUXI_0004,   
  ST_AUXI_0005, ST_AUXI_0006, ST_AUXI_0007, ST_AUXI_0008,   
  ST_AUXI_0009, ST_AUXI_0010, ST_REEM_ENRE, CO_SUBR, TI_SITU,   
  CO_USUA_CREA, CO_USUA_MODI, CO_MEPA )                 
        SELECT CO_EMPR, @ISCO_TIOP_0002 CO_TIPO_OPER, CO_GRUP_OPER, @ISDE_TIPO_OPE2 DE_TIPO_OPER, TI_MOVI,   
  ST_CAJA, ST_BANC, ST_CTAC, ST_CTAP, ST_DETA_DOCU,   
  ST_REPO_CAJA, ST_ENRE_OTRO, ST_TRAN_BANC, ST_TRAN_CAJA,   
  ST_AUXI_0001, ST_AUXI_0002, ST_AUXI_0003, ST_AUXI_0004,   
  ST_AUXI_0005, ST_AUXI_0006, ST_AUXI_0007, ST_AUXI_0008,   
  ST_AUXI_0009, ST_AUXI_0010, ST_REEM_ENRE, CO_SUBR,'ACT' TI_SITU,   
  @ISCO_USUA CO_USUA_CREA, @ISCO_USUA CO_USUA_MODI, CO_MEPA
        FROM TTTIPO_OPER  
        WHERE CO_EMPR = @ISCO_EMPR   
        AND   CO_TIPO_OPER = @ISCO_TIOP_0001  
  
        if @@error <> 0  
           begin  
             rollback tran SP_TTTIPO_OPER_I01  
             return  
           end  
  
COMMIT TRAN SP_TTTIPO_OPER_I01  
  
  
/************************** fin *********************************/


GO
